From 5a4bf9a07c9c503fb2573470dedb97fee8b1ab12 Mon Sep 17 00:00:00 2001
From: robertl <robertl@f51c46e8-681c-474f-0cfe-069cfd0219fb>
Date: Thu, 21 Nov 2002 05:46:55 +0000
Subject: [PATCH] Finish prototyping GUI  Actually invokes gpsbabel now.

---
 gpsbabel/guibabel | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gpsbabel/guibabel b/gpsbabel/guibabel
index 7aec69a96..fe11b3db1 100755
--- a/gpsbabel/guibabel
+++ b/gpsbabel/guibabel
@@ -19,14 +19,14 @@ proc positionWindow w {
 
 proc showCmd w {
  global ifile ofile use_shortnames ftyperead ftypewrite
- set cmd "-i $ftyperead -f $ifile"
+ set cmd "gpsbabel -i $ftyperead -f $ifile"
  if {$use_shortnames > 0} {
 	set cmd [concat $cmd "-s"]
   }
  set cmd [concat $cmd  "-o $ftypewrite -F $ofile"]
-# exec $cmd
+ eval exec $cmd
  
- tk_messageBox -icon info -message  $cmd
+# tk_messageBox -icon info -message  $cmd
 }
 
 set w .filebox
@@ -41,7 +41,7 @@ positionWindow $w
 
 frame $w.buttons
 pack $w.buttons -side bottom -fill x -pady 2m
-button $w.buttons.dismiss -text Cancel -command "destroy $w"
+button $w.buttons.dismiss -text End -command "destroy $w"
 button $w.buttons.code -text OK -command "showCmd $w"
 pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
 
-- 
2.30.2